home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zl.d64 / prc.random'array < prev    next >
Text File  |  2007-03-01  |  514b  |  15 lines
  1. 0350 ╨╥╧├ RANDOM'ARRAY(ITEMS,MIN'CHAR,MAX'CHAR,╥┼╞ STRING$(),SEED) ├╠╧╙┼─
  2. 0360   // SETS UP ARRAY OF VARYING DIMENSIONS
  3. 0370   // SEED -1 FOR TRUE RANDOM ARRAY
  4. 0380   // POSITIVE SEED FOR PSEUDO RANDOM  I.E. SAME ORDER FOR A SPECIFIC  SEED
  5. 0400   ╥┴╬─╧═╔┌┼ SEED
  6. 0410   ╔╞ SEED=-1 ╘╚┼╬ ╥┴╬─╧═╔┌┼
  7. 0420   ╞╧╥ X:=1 ╘╧ ITEMS ─╧
  8. 0430     CHAR:=╥╬─(MIN'CHAR,MAX'CHAR)
  9. 0440     STRING$(X):=""
  10. 0450     ╞╧╥ Y:=1 ╘╧ CHAR ─╧
  11. 0460       STRING$(X):+├╚╥$(╥╬─(65,90))
  12. 0470     ┼╬─╞╧╥ Y
  13. 0480   ┼╬─╞╧╥ X
  14. 0490 ┼╬─╨╥╧├ RANDOM'ARRAY
  15.